www.gusucode.com > 地方成人教育中心整站源代码 1 > 地方成人教育中心整站源代码 1.0/inc/db.asp

    <%
response.buffer=true'打开缓冲

Class class_idea
	Public connstr,isconn,rootpath
	Private Sub Class_Initialize()   
		isconn=false   
	End Sub 

	sub conn_open()
		set conn=server.createobject("adodb.connection")
		set rs=server.createobject("adodb.recordset")
		conn.open connstr
                If Err.Number<>0 Then Response.Write "数据库连接发生错误" : Response.End
		isconn=true
	End Sub

	Function exec(esql,etype)
		if not isconn=true then call conn_open()
		select case etype
		case 0
			conn.execute(esql)
		case 1
			set exec=server.CreateObject("adodb.recordset")
			exec.open esql,conn,1,1
			end select
	End Function

'**********
'地址处理
'**********
	function own_http()
		dim ssort
		ssort=trim(request.servervariables("server_port"))
		own_http="http://"&trim(request.servervariables("server_name"))
		if ssort<>"80" then own_http=own_http&":"&ssort
		if right(own_http,1)<>"/" then own_http=own_http&"/"
	End Function

	sub own_dir()
		dim path_info,now_dir,ndd
		path_info=request.servervariables("path_info")
		now_dir=left(path_info,instrrev(path_info,"/"))
		web_dir=now_dir
		ndd=own_http()
		web_urls=left(ndd,len(ndd)-1)&now_dir
	end sub
End Class

Dim conn,rs
set idea = new class_idea
If idea_5=1 Then
	'idea.connstr="provider=sqloledb;uid="&idea_8&";pwd="&idea_9&";initial catalog="&idea_7&";data source="&idea_6&";"
	idea.connstr ="Driver={SQL Server};server="&idea_6&";uid="&idea_8&";pwd="&idea_9&";database="&idea_7&""
Else
	idea.connstr = "provider=microsoft.jet.oledb.4.0;data source=" &server.mappath(idea_10)
	'idea.connstr = "Driver={Microsoft Access Driver(*.mdb)};DBQ="&Server.MapPath(idea_10)

End If

'******************
'回收资源
'******************
Sub web_clear()
	if isobject(rs) then set rs=nothing
	if idea.isconn then
		conn.close
		set conn=nothing
	end if
	set idea=nothing
End Sub



%>